<% id_forum_topics = request("id_forum_topics") strConnString = "driver={SQL Server};server=sql7.globalgold.co.uk;uid=betterthinking;pwd=master-point;database=betterthinking" set my_Conn = Server.CreateObject("ADODB.Connection") my_Conn.Open strConnString strSql = "SELECT * from forum_topics where idforum_topic=" & id_forum_topics set rs = my_Conn.Execute (strSql) id_forum_topic = rs("idforum_topic") title_graphic_root = rs("title_graphic_root") title_graphic_main = rs("title_graphic_main") topic_summary = rs("topic_summary") topic_brief = rs("topic_brief") binary_display = rs("binary_display") If Session("login")="true" then id_forum_topics = request("id_forum_topics") strConnString = "driver={SQL Server};server=sql7.globalgold.co.uk;uid=betterthinking;pwd=master-point;database=betterthinking" set my_Conn = Server.CreateObject("ADODB.Connection") my_Conn.Open strConnString strSql = "SELECT * from forum_posts where binary_display=0 and id_forum_topics=" & id_forum_topics set rs = my_Conn.Execute (strSql) %>

Manage Non-Reviewed Posts

Manage Reviewed Posts >>>

Manage Topics >>>

<% If rs.eof Then response.write("sorry no posts") End If form_count = 0 Do Until rs.eof id_forum_posts = rs("idforumposts") varchar_post = rs("varchar_post") varchar_subject = rs("varchar_subject") idUser = rs("idUser") datetime_date = rs("datetime_date") int_votes = rs("int_votes") strSql = "SELECT * from users where idUser = " & idUser set new_rs = my_Conn.Execute(strSql) varchar_name = new_rs("name") varchar_email = new_rs("email") varchar_town = new_rs("location") new_rs.close 'varchar_name = Split(varchar_name, " ") %>

<%=varchar_post%>

<%=varchar_name%>, <%=varchar_town%>, <%=datetime_date%>

Add to forum Delete

<% form_count = form_count + 1 rs.movenext loop End if %>